Dim CuRWidth As Integer = Me.Width
Dim CuRHeight As Integer = Me.Height


Private Sub Form1_Resize(sender As Object, e As EventArgs) Handles Me.Resize

Dim RaitoHeight As Double = (Me.Height - CuRHeight) / CuRHeight
Dim RatioWidth As Double = (Me.Width - CuRWidth) / CuRWidth

For Each Ctrl As Control In Controls
Ctrl.Width += Ctrl.Width * RatioWidth
Ctrl.Left += Ctrl.Left * RatioWidth
Ctrl.Top += Ctrl.Top * RatioHeight
Ctrl.Height += Ctrl.Height * RatioHeight
Next

CuRHeight = Me.Height
CuRWidth = Me.Width

End Sub



